home *** CD-ROM | disk | FTP | other *** search
/ Assassins - Ultimate CD Games Collection 1 / Assassins - Ultimate CD Games Collection (1994)(Weird Science)(Track 1 of 2)[!][Amiga-CD32-CDTV][CDD5332].iso / arcade / paranoid / sourcecode / libmon.c < prev    next >
Encoding:
C/C++ Source or Header  |  2004-11-29  |  973 b   |  43 lines
  1. #include <exec/types.h>
  2. #include <exec/execbase.h>
  3. struct ExecBase *eb;
  4. char *OpenLibrary();
  5. main()
  6. {
  7.  UBYTE *button=(UBYTE *) 0xbfe001;
  8.  struct Library *lib;
  9.  struct Node *np;
  10.  if (!(eb=(struct ExecBase *) OpenLibrary ("exec.library",0l)))
  11.  exit (FALSE); lib=&(eb->LibNode);
  12.  np=&(lib->lib_Node);
  13.  while ((np->ln_Succ)!=NULL) 
  14.  {
  15.   lib=(struct Library *) np;
  16.   clear();
  17.   printf ("--------------------------------\n");
  18.   printf ("library:  %s\n",np->ln_Name);
  19.   printf ("comment:  %s\n",lib->lib_IdString);
  20.   printf ("version:  %u\n",lib->lib_Version);
  21.   printf ("revision: %u\n",lib->lib_Revision);
  22.   printf ("opencnt:  %u\n",lib->lib_OpenCnt);
  23.   printf ("address:  $%lx\n",(long) np);
  24.   printf ("--------------------------------\n");
  25.   printf ("\n\npress mouse button!\n");
  26.   while (*button & (UBYTE) 64);
  27.   np=np->ln_Succ;
  28.  } 
  29.  CloseLibrary (eb);
  30. }
  31. clear()
  32. {
  33. printf ("\f");
  34. printf ("\nLibMon by Felix Wente\n");
  35. printf ("This Program is Public Domain!\n\n\n");
  36. }
  37.  
  38.  
  39.  
  40.  
  41.  
  42.  
  43.